МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
Національний університет «Львівська політехніка»
Кафедра АСУ
Звіт
до лабораторної роботи №4
з курсу “Об'єктно орієнтоване програмування”
Варіант 8
Бунь І.П.
Тема Робота з графікою
Мета роботи: вивчити можливості графічної підсистеми Delphi 5, її властивості та принципи побудови прикладних програм з використанням графіки.
Порядок роботи:
Створити проект для виконання індивідуального завдання.
Оформити звіт для захисту лабораторної роботи за зразком
назва роботи
мета роботи
порядок роботи
короткі теоретичні відомості
алгоритм розв’язку задачі
тексти відповідних модулів проекту
аналіз отриманих результатів та висновки
Завдання
Створити програму, яка будує криві за заданим параметричним представленням (варіанти 1, 3, 5, 7, 9, 11, 13, 15, 17) або по їх рівняннях у полярних координатах (варіанти 2, 4, 6, 8, 10, 12, 14, 16, 18).
Параметричне представлення кривої на площині з координатами - це дві функції , , визначені на одній і тій самій числовій множині.
Полярні координати точки на площині - це відстань від фіксованої точки (полюса) до точки і кут між і полярною віссю (променем) .
8. Спіраль Кейлі шостого порядку
, .
Тексти програм:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
ScrollBar1: TScrollBar;
ScrollBar2: TScrollBar;
ScrollBar3: TScrollBar;
Label1: TLabel;
StaticText1: TStaticText;
procedure FormPaint(Sender: TObject);
procedure ScrollBar1Change(Sender: TObject);
procedure ScrollBar2Change(Sender: TObject);
procedure ScrollBar3Change(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
procedure DrawFunc(Zoom,StartX,StartY:integer);
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TForm1 }
procedure TForm1.DrawFunc(Zoom,StartX,StartY:integer);
procedure SetPoint(f:double;r:double;StX,StY:integer);
var x,y:integer;
begin
x:=StX+round(R*cos(f));
y:=StY+round(R*sin(f));
Self.Canvas.Pixels[x,y]:=$ff;
end;
var
fi,ro:double;
a:double;
begin
a:=Zoom;
fi:=0;
while fi<(2.0*pi) do
begin
ro:=a/(cos(fi/3.0)*cos(fi/3.0)*cos(fi/3.0)); // ((1.0+cos((2*fi)/3.0))/2)
SetPoint(Fi,Ro,StartX,StartY);
fi:=fi+0.005;
end;
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
Canvas.FillRect(GetClientRect);
DrawFunc(ScrollBar1.Position,ScrollBar3.Position,ScrollBar2.Position);
end;
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
Paint
end;
procedure TForm1.ScrollBar2Change(Sender: TObject);
begin
Paint
end;
procedure TForm1.ScrollBar3Change(Sender: TObject);
begin
Paint
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to 195 do
begin
StaticText1.Width:=i;
end;
end;
end.
Скріншоти роботи програми:
Висновок: На даній лабораторній роботі я практикувався у створенні ужитку з використанням GUI для зображення графіку заданої функції. Розглянув основні методи для роботи з графікою, а саме класу TCanvas.
